home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d26 / freetk.arc / MORTGAGE.TK < prev    next >
Encoding:
Text File  |  1987-06-16  |  2.7 KB  |  307 lines
  1. TK!2
  2. =v
  3. #1
  4. :n
  5.  
  6. :s
  7. b
  8. :c
  9. **********  MORTGAGE MODEL  **********
  10. #2
  11. :n
  12. salary
  13. :v
  14. 2916.666666666667
  15. :s
  16. i
  17. :u
  18. $/mo
  19. :d
  20. $/yr
  21. :c
  22.   salary
  23. #3
  24. :n
  25. bracket
  26. :v
  27. .33
  28. :s
  29. i
  30. :u
  31. df
  32. :d
  33. %
  34. :c
  35.   income tax bracket
  36. #4
  37. :n
  38. onhand
  39. :v
  40. 8000
  41. :s
  42. i
  43. :u
  44. $
  45. :d
  46. $
  47. :c
  48.   cash for closing costs, down payment
  49. #5
  50. :n
  51. term
  52. :v
  53. 300
  54. :s
  55. i
  56. :u
  57. mo
  58. :d
  59. yr
  60. :c
  61.   term of mortgage
  62. #6
  63. :n
  64. rate
  65. :v
  66. .008750000000000001
  67. :s
  68. i
  69. :u
  70. df/mo
  71. :d
  72. %/yr
  73. :c
  74.   interest rate
  75. :f
  76. .008333333333333333
  77. #7
  78. :n
  79. house
  80. :v
  81. 70000
  82. :s
  83. g
  84. :u
  85. $
  86. :d
  87. $
  88. :c
  89. maximum house price you can afford
  90. #8
  91. :n
  92. loan
  93. :s
  94. b
  95. :u
  96. $
  97. :d
  98. $
  99. :c
  100. maximum mortgage allowed by bank
  101. #9
  102. :n
  103. closing
  104. :s
  105. b
  106. :u
  107. $
  108. :d
  109. $
  110. :c
  111.   closing costs
  112. #10
  113. :n
  114. downpay
  115. :s
  116. b
  117. :u
  118. $
  119. :d
  120. $
  121. :c
  122.   down payment
  123. #11
  124. :n
  125. dp%
  126. :s
  127. b
  128. :u
  129. df
  130. :d
  131. %
  132. :c
  133.   down payment percentage
  134. #12
  135. :n
  136. payment
  137. :s
  138. b
  139. :u
  140. $/mo
  141. :d
  142. $/mo
  143. :c
  144.   periodic mortgage payment
  145. #13
  146. :n
  147. tax
  148. :s
  149. b
  150. :u
  151. $/mo
  152. :d
  153. $/mo
  154. :c
  155.   property tax
  156. #14
  157. :n
  158. pit
  159. :s
  160. b
  161. :u
  162. $/mo
  163. :d
  164. $/mo
  165. :c
  166.   principal + interest + property tax
  167. #15
  168. :n
  169. savings
  170. :s
  171. b
  172. :u
  173. $/mo
  174. :d
  175. $/mo
  176. :c
  177.   periodic income tax savings
  178. #16
  179. :n
  180. netpymt
  181. :s
  182. b
  183. :u
  184. $/mo
  185. :d
  186. $/mo
  187. :c
  188.   periodic payment with tax savings
  189. #17
  190. :n
  191. Tp
  192. :s
  193. b
  194. :u
  195. $
  196. :d
  197. $
  198. :c
  199.   total amount paid over term
  200. #18
  201. :n
  202. Tip
  203. :s
  204. b
  205. :u
  206. $
  207. :d
  208. $
  209. :c
  210.   total interest payments over term
  211. #20
  212. :n
  213.  
  214. :s
  215. b
  216. :c
  217.      (Type  =R  to see the Rule Sheet)
  218. =u
  219. #1
  220. :f
  221. %
  222. :t
  223. df
  224. :m
  225. .01
  226. #2
  227. :f
  228. yr
  229. :t
  230. mo
  231. :m
  232. 12
  233. #3
  234. :f
  235. $/mo
  236. :t
  237. $/yr
  238. :m
  239. 12
  240. #4
  241. :f
  242. df/mo
  243. :t
  244. %/yr
  245. :m
  246. 1200
  247. #5
  248. :f
  249. df/mo
  250. :t
  251. %/mo
  252. :m
  253. 100
  254. =r
  255. #1
  256. :r
  257. closing = .02*loan + 500      " # # # # # # # # # # # # # # # # # # # # # # "
  258. #2
  259. :r
  260. pit = .28*salary              " According to the 1987 Tax Law, property tax "
  261. #3
  262. :r
  263. onhand = downpay + closing    " is no longer deductible, so for 1987 the    "
  264. #4
  265. :r
  266. tax = .025*.75*house/12       " savings = ... equation should be modified.  "
  267. #5
  268. :r
  269. house = loan + downpay        " # # # # # # # # # # # # # # # # # # # # # # " 
  270. #6
  271. :r
  272. downpay = house*dp%          
  273. #7
  274. :r
  275. payment = loan*(rate/(1 - (1 + rate)^-term))
  276. #8
  277. :r
  278. Tp = payment*term
  279. #9
  280. :r
  281. Tip = Tp - loan
  282. #10
  283. :r
  284. savings = bracket*(tax + payment*Tip/Tp)  "/ average savings and netpymt
  285. #11
  286. :r
  287. netpymt = pit - savings                   "\    over the term of loan
  288. #12
  289. :r
  290. pit = payment + tax         " i.e., .28*salary = f(loan,rate,term) + f(house)
  291. #14
  292. :r
  293. " Note: The model lets you find how expensive a house you can buy given the
  294. :s
  295. C
  296. #15
  297. :r
  298. "       salary, loan terms, etc.; how much you need to earn to buy a certain
  299. :s
  300. C
  301. #16
  302. :r
  303. "       house; and so on.  In the 1st case you have to guess the house price.
  304. :s
  305. C
  306. %Tv,f,0,5,0,1,0
  307.